home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / eyes / martianEye.wwModel / initialDefines.eve < prev    next >
Encoding:
Text File  |  1995-03-22  |  940 b   |  34 lines
  1. set sphere(color) {1.0 0.0 0.0}
  2. set sphere(radius) 1.0
  3. EveCmd {set sphere(zMin) [expr {-1 * $sphere(radius)}]}
  4. EveCmd {set sphere(zMax) $sphere(radius)}
  5.  
  6. set sphere(thetaMax) 270.0
  7.  
  8. # this gives it a nice goofy look
  9. set sphere(volumePreservingScaleFactor) 1.0
  10.  
  11. EveCmd {set sphere(xScale) [expr 1./sqrt($sphere(volumePreservingScaleFactor))]}
  12. EveCmd {set sphere(yScale) $sphere(volumePreservingScaleFactor)}
  13. EveCmd {set sphere(zScale) [expr 1./sqrt($sphere(volumePreservingScaleFactor))]}
  14.  
  15. set sphere(xTranslate) 0
  16. set sphere(yTranslate) 0
  17. set sphere(zTranslate) 0
  18. set sphere(xRotate) 0
  19. set sphere(yRotate) 0
  20. set sphere(zRotate) 0
  21.  
  22. set eyeBall(irisSize)  .12
  23. set eyeBall(pupilSize) .05 
  24. set eyeBall(bloodShot) .65
  25. set eyeBall(upToDown) 0 
  26. set eyeBall(leftToRight) 0 
  27.  
  28. set upperLid(rotate) 45
  29. EveCmd {set lowerLid(rotate) [expr {-1 * $upperLid(rotate)}]}
  30.  
  31. set coneOPower(length) 5
  32. set coneangle 15
  33. set conedeltaangle 3
  34. set coneCoefficient .25